home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xsetwindowattributes.t < prev    next >
Text File  |  1990-06-01  |  3KB  |  64 lines
  1. (herald xsetwindowattributes (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XSETWINDOWATTRIBUTES)
  3.         (CONS 'XSETWINDOWATTRIBUTESP (MAKE-BYTEV 60)))
  4. (DEFINE (XSETWINDOWATTRIBUTES-BACKGROUND_PIXMAP X)
  5.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 0))
  6. (DEFINE (XSETWINDOWATTRIBUTES-BACKGROUND_PIXMAP! X Y)
  7.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 0 Y))
  8. (DEFINE (XSETWINDOWATTRIBUTES-BACKGROUND_PIXEL X)
  9.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 4))
  10. (DEFINE (XSETWINDOWATTRIBUTES-BACKGROUND_PIXEL! X Y)
  11.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 4 Y))
  12. (DEFINE (XSETWINDOWATTRIBUTES-BORDER_PIXMAP X)
  13.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 8))
  14. (DEFINE (XSETWINDOWATTRIBUTES-BORDER_PIXMAP! X Y)
  15.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 8 Y))
  16. (DEFINE (XSETWINDOWATTRIBUTES-BORDER_PIXEL X)
  17.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 12))
  18. (DEFINE (XSETWINDOWATTRIBUTES-BORDER_PIXEL! X Y)
  19.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 12 Y))
  20. (DEFINE (XSETWINDOWATTRIBUTES-BIT_GRAVITY X)
  21.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 16))
  22. (DEFINE (XSETWINDOWATTRIBUTES-BIT_GRAVITY! X Y)
  23.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 16 Y))
  24. (DEFINE (XSETWINDOWATTRIBUTES-WIN_GRAVITY X)
  25.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 20))
  26. (DEFINE (XSETWINDOWATTRIBUTES-WIN_GRAVITY! X Y)
  27.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 20 Y))
  28. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_STORE X)
  29.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 24))
  30. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_STORE! X Y)
  31.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 24 Y))
  32. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_PLANES X)
  33.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 28))
  34. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_PLANES! X Y)
  35.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 28 Y))
  36. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_PIXEL X)
  37.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 32))
  38. (DEFINE (XSETWINDOWATTRIBUTES-BACKING_PIXEL! X Y)
  39.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 32 Y))
  40. (DEFINE (XSETWINDOWATTRIBUTES-SAVE_UNDER X)
  41.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 36))
  42. (DEFINE (XSETWINDOWATTRIBUTES-SAVE_UNDER! X Y)
  43.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 36 Y))
  44. (DEFINE (XSETWINDOWATTRIBUTES-EVENT_MASK X)
  45.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 40))
  46. (DEFINE (XSETWINDOWATTRIBUTES-EVENT_MASK! X Y)
  47.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 40 Y))
  48. (DEFINE (XSETWINDOWATTRIBUTES-DO_NOT_PROPAGATE_MASK X)
  49.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 44))
  50. (DEFINE (XSETWINDOWATTRIBUTES-DO_NOT_PROPAGATE_MASK! X Y)
  51.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 44 Y))
  52. (DEFINE (XSETWINDOWATTRIBUTES-OVERRIDE_REDIRECT X)
  53.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 48))
  54. (DEFINE (XSETWINDOWATTRIBUTES-OVERRIDE_REDIRECT! X Y)
  55.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 48 Y))
  56. (DEFINE (XSETWINDOWATTRIBUTES-COLORMAP X)
  57.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 52))
  58. (DEFINE (XSETWINDOWATTRIBUTES-COLORMAP! X Y)
  59.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 52 Y))
  60. (DEFINE (XSETWINDOWATTRIBUTES-CURSOR X)
  61.         (MREF-INTEGER (CHK-XSETWINDOWATTRIBUTESP X) 56))
  62. (DEFINE (XSETWINDOWATTRIBUTES-CURSOR! X Y)
  63.         (SET-MREF-INTEGER! (CHK-XSETWINDOWATTRIBUTESP X) 56 Y))
  64.